From 7cf6fac18064e404a26b2d633f9cbde5f73c0123 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 31 May 1993 18:02:03 +0000 Subject: [PATCH] (x-resolve-font-name): Clean up error messages. --- lisp/faces.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/faces.el b/lisp/faces.el index 7788617ea27..b19159020c0 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -428,9 +428,9 @@ also the same size as FACE on FRAME." (let ((fonts (x-list-fonts pattern face frame))) (or fonts (if face - (error "no fonts matching pattern are the same size as `%s'." + (error "No fonts matching pattern are the same size as `%s'" face) - (error "no fonts match `%S'." pattern))) + (error "No fonts match `%s'" pattern))) (car fonts)) (cdr (assq 'font (frame-parameters (selected-frame)))))) -- 2.30.2